#include "embedded_perl.h"

void boot_DynaLoader (CV* cv);

void xs_init() {
   char *file = __FILE__;
   newXS("DynaLoader::boot_DynaLoader", boot_DynaLoader, file);
}

int main(int argc, char** argv, char** env) {
   dSP;

   perl_prologue();

   printf("using POSIX...\n");
   eval_pv("use POSIX", 0);

   printf("calling POSIX::clock...\n");
   call_pv("POSIX::clock", G_SCALAR|G_NOARGS);

   SPAGAIN;
   printf("POSIX::clock returned %ld\n", POPi);

   perl_epilogue();
}
